
      INTEGER*8     KSTINF,KSTINE,KOCSTR,KNSTSO,KISTSO,                 & 
     &              KSTSTM,KZ,                                          &
     &              KSTREO,KSTSM,KSTCL,                                 &
     &              KEL1,KEL3,KEL123,                                   &
     &              KACTP,                                              &
     &              KCOBSM,KNIFSJ,KIFSJ,KIFSJO,KSTSTX,                  &
     &              KNDMAP,KNUMAP,                                      &
     &              KSTSTMI,KSTSTMN,                                    &
     &              KNSTSGP,KISTSGP ,                                   &
     &              KZSPGP,KIOCLS,KSPGPAN,KSPGPCR

      COMMON/STRBAS/KSTINF,KSTINE,KOCSTR(MXPSTT),KNSTSO(MXPSTT),        &
     &              KISTSO(MXPSTT),KSTSTM(MXPSTT,2),KZ(MXPSTT),         &
     &              KSTREO(MXPSTT),KSTSM(MXPSTT),KSTCL(MXPSTT),         &
     &              KEL1(MXPSTT),KEL3(MXPSTT),KEL123(MXPSTT),           &
     &              KACTP(MXPSTT),                                      &
     &              KCOBSM,KNIFSJ,KIFSJ,KIFSJO,KSTSTX,                  &
     &              KNDMAP(MXPSTT),KNUMAP(MXPSTT),                      &
     &              KSTSTMI(MXPSTT),KSTSTMN(MXPSTT),                    &
     &              KNSTSGP(MXPNGAS),KISTSGP(MXPNGAS) ,                 &
     &              KZSPGP(MXPSTT),KIOCLS,KSPGPAN,KSPGPCR
